Imports Aricie.DNN.Modules.LuceneSearch.Business
Imports Aricie.DNN.UI.WebControls

Namespace Aricie.DNN.Modules.LuceneSearch.UI.Controls

    Public Class LuceneFieldMultiSelector
        Inherits MultiSelectorControl(Of FieldDefinition)

        Public Overrides Function GetEntitiesG() As IList(Of FieldDefinition)
            Dim toReturn As IList(Of FieldDefinition) = PortalQueryingDriver.GetCurrent().GetSearchableFields()
            Return toReturn
        End Function

        Protected Overrides Sub Render(writer As System.Web.UI.HtmlTextWriter)
            writer.AddAttribute(HtmlTextWriterAttribute.Class, "ScrollingViewPort")
            writer.RenderBeginTag("div")
            MyBase.Render(writer)
            writer.RenderEndTag()
        End Sub
    End Class

End Namespace
